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ENON FIO Oh OO © 
od 


12 
13 
14 
15 
16 
17 
18 
19 
20 


MFINOEY OD O a Ph 90 
NI ALALA AL ALA ® or) mmr 


39 
40 


@ rm NIMO wu aNm tA Of 
“ AMM MMO rears ge or + 


(bottom board only) 


jast GRDER received 


printer ENABLED fiag (coax-protocol) 
status" 


device print density 
"special 


jast coax command 


ENAFLG 
EXTERN EXSTAT 
EXTERN LSTCOM 
EXTERN LSTORD 


EXTERN DEVPD 
EXTERN 


48 
49 
50 
51 
52 
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=C000 
=2000 


=C 000 


=FFFO 
=27FF 


53 
54 
55 
56 
57 
58 


sb 4 


Sh ob 4b Sb 


we 


- See 


ROMBEG 
ROMEND 


‘TRUE. 
FALSE. 


ADCOD 
DBC_SP 
DBC_0 
DBC_9 
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EXTERN 


EXTERN 
EXTERN 
EXTERN 
XREF 
XREF 
XREF 
XREF 
XREF 


INTERN: 


INTERN 
INTERN 
XDEF 


PIDENT 
SWFLAG 
SWVEC 
VERSIO 
DEVTST 
DEVCR 
DEVLF 
DEVOUT 
DEVPUT 


AUTDMP 
CONCHK 
TEST 

TSTBUF 


Page i-1 


terminal id field : 
front panel switch pressed fiag 
base of switch vector 

software version number 


Device 
Device 


Device. 


Device 


test print 
carriage return 
line feed 
output code 


Device output tine 


return continue/cancel flag for muiti-tine test* 


Test print buffer. 


TSTROMsREL »sRANGE=O0CO00H: OF FFOH 
TSTRAMeREL »s RANGE=02000H: 02 7FFH 


$C000 
$0000 


Med: 


0 
8 
$10 
$20 


$29 


$A2 
$AA 
$BY 


ROM beginning address 
ROM ending address + 1 
boolean “true"™ 
boolean “faise" 


test switch code for auto-hex-dump 


DBC code for (space) 
CBC graphic 
D8C graphic 
DBC graphic. 
CBC graphic 
DBC graphic 


KxAMA OO 


TEST MODULE 
TEST.SRC 


O000* 
0001° 


0013° 
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=0000 


=0001 
=0002 
=0010 
=0050 


90 
91 
92 
93 
94 
95 
96 
97 


TS TBUF 
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Bete ke eae eke eke ee ek se ek KAAS RSS ASSS 


TSTRAM 


1 
2 


16 


80 


Page 2 
See ee SSSA SASSER AS ARREARS 


"good dump" (not aborted) flag 
address beypnd end of dump 
pre-buffer space 

test print buffer 
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TESTeSRC 
99 
=0000 100 RSECT TSTROM 
101 * 
0000" BD 0015* 102 TEST JSR TSWIT gets mask & shift test switch code 
0003" 48 103 LSLA double for index. 
0004" 8E O001D* 104 _DX #TSTTAB base of table 
ooo7* AD 96 105 JSR CA2X} go to appropriate subroutine 
0009" 39 106 RTS 
107 = 
OOOA* 8D 0015* 108 AUTDMP JSR TSWIT get test switches 
000D* 8:1 08 109 CMPA #ADC OD is auto dump specified? 
OOOF*®* 26 03 110 BNE 99$ branch if no 
111 
0011° 8D OOBF* 112 JSR F DUMP yese do full dump 
0014" 39 113 99$ RTS 
114 < 
115 x 
116 * gets mask and shift test switch code 
117 = 
0015* 86 O000" 118 TSWIT LDA SWVEC+41 get current code 
QO18* 44 119 LSRA shift right 4 places (masking in process) 
0019" 44 120 LSRA 
OO1LA* 44 121 LSRA 
OO1B. 44 122 LSRA 
001iCc* 39 : | 123 RTS 
| 124 x 
125 x test decode tabte 
126 = 
001D* 0033" l2? TSTTAB FDB VERS O - user version print 
OO1LF*® 0033°* 128 FDB VERS i - print versions etce 
0021" 0087* 129 FDB STAT 2- print "special status" 
0023" OOBF* 136 FDB FODUMP 3 — dump all 
0025* O0OE6* 131 FDB S DUMP 4 —- dump stack/var ram only. 
0027* oo00cs 132 FDB DEVTST 5 - device dependant test 
0029" =0032° 133 FDS MEMTST 6 - do a memory check 2272727272727272722722727 22? 
002B* 0031° 134 FDB NULL 7 - normals no test 
O02D* 0o031° 135 FDB NULL 8 - auto-dumps no test 
OO2F* o171! 136 FDB JPRNT 9 


- Infinite test print 


TEST MODULE 
TESTeSRC 


0031° 


0032° 


39 


39 
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138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 


Bs 

* no test 

* 

NULL RTS 

* ; 

RARER SEER RRA HERRERA ERR RRR RSREESSESEREREEREE KRSERSEEEKSER 
ke 

7s memory test -- to be defined 

+4 


MEMTST RTS 


TEST MODULE 
TEST.SRC 


0033? 
0036° 
0039° 
003D° 
003F* 
0041° 


0043° 
0045° 


0047°* 
0049° 
004B° 
004D* 
0050 
0052" 


0054°* 
0056°* 
0059* 
005C* 
OO5E* 
0061'* 
0063" 
0066 
0068* 


0068" 


0060° 
0070° 
0073° 
0076° 
0078" 


OO7B*. 


007D* 
0c8s0o* 
0082" 


0085" 


BD 
CE 


108E 0013" 


E6 
34 
27 


Cl 
23 
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0250° 
000B* 


co 
04 
11 


3E 
04 


150 
151 
152 
153 
154 
155 


156 


157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


170° 


171 


172 


173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 


< sh th ot 


ERS 


10% 


20$ 


30$ 
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print versione models checksum (tof rom) 


JSR 
LDU 
LDY 
LD8 
PSHS 
BEQ 


CMPB 
BLS 


LDB 
STB 
LDA 
JSR 
DEC 
BNE 


LEAS 
LDA 


JSR 
LDA 


JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LOX 
LDD 
ADDD 
CMPX 
BNE 


JSR 
LDA 
JSR 
BRA 


NL 
#VERSIO 
#TSTBUF 
0 »U+t 

B 

20% 


#62 
10$ 


#62. 
02S 

0 »U+ 
DE VOUT 
02S 
10$ 


12S 
DEVMDN 
TSTHEX 
#DBC_SP 
DEVOUT 
#DBC_C 
DEVOUT 
#DBC_K 
DEVOUT 
#DBC_SP 
DE VOUT 
#ROMBEG 
#%$0000 
eXtt+ 
#ROMEND 
30$ 


TST4HX 
#DBC_SP 


DEVOUT. 


STATI 


test prints should always start with NL 
address containing version 

Point to test print buffer. 

Load version byte count 

Save byte count 

No version string 


Version string too f!ong ? 
No ! 


Load maxe byte count 

Save new byte count 

Load code 

Transfer to test print buffer 
Last code ? 

No ! 


Clean up stack 
output model number 


follow with a space 

a C 

a K 

another space 

compute ROM checksum by words 
clear sum 


add a word to sum 
End? 


output checksum 
output a space 


jump into STATs+ below 
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TESTeSRC | 


192 3% 
193 * "special status" -— Xxxyzab 
194 * 
195 x X is an indicator character 
196 % xx represents the “special status” byte 
197 % y represents the BUSY flags F or 0 
198 = Z represents the ENABLED flage F or 0 
199 & a represents the fast ORDER» O to 3 
200 me b represents the last COMMANDs O to 3 
201 * | 
Q087* BD 0250* 202 STAT JSR NL begin with a new fine 
ooeaA* 108—E 0013" 203 LDY #TSTBUF Point to test print buffer 
204 
OO8E* 86 B77 205 STATI LDA #DBC_X X 
0090" BD OOOF* 206 JSR DEVOUT 
0093" Bé 0005 207 LDA EXSTAT the "special status” byte 
0096" BD 0224* 208 JSR TST2HX 
0099" B66 0001 209 LDA BUSY BUSY flag 
0o9c* BD O22F* 210 JSR TSTHEX 
OO9F* B86 0004% 211 LDA ENAFLG ENABLED flag 
OOA2* BD O22F° 212 JSR TSTHEX 
OOA5* 86 OOOT® 213 LDA i STORD jast CRDER 
O0A8* 84 03 214 ANDA #3 
OOAA* BD O22F* 215 JSR TSTHEX 
OOAD* 86 O0006* 216 LDA LSTCOM last COMMAND 
0OoBO0* 84 03 217 ANDA #3 ; | | 
OOB2* BD 022F°* 218 JSR TSTHEX 
OOB5* BD 0230! 219 JSR TSTPUT Output test print fine 
OOB8* BD 0250°* 220 JSR NL 
oosB* BD 0250°* 221 JSR NL 


OOBE*® 39 222 RTS 


TEST MODULE 
TEST*SRC 


OOBF® 
0oc2* 
00c5s* 
o0ocs* 
oocg9* 
OOcB* 
OOCcE* 
OOCF® 


ooD1* 
00D4* 
00Dé6* 
00D9° 
OODB* 
OODE’® 
OOEO* 
OOE3° 
OOE4* 


OOE6* 
O0E9" 
OOEC® 

‘OOEF* 
OOF2* 
OOFS® 


BD 
8E 
CE 
BD 


39 
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0033° 
0000 
0000" 


03 
OOF6* 


21 


0000" 
10 
1000 


0033° 
2000 
2800 
OOF6* 
0250* 


224 


225° 


226 
227 
228 
229 
230 
231 
232 
233 


234 


235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 


250 


251 
252 
253 
254 
255 


3 


te ae 


SDUMP 


DMPEND 


stack and variable ram 


JSR 
LDX 
LDU 
JSR 
JSR 
RTS 


VERS 
#$2000 
#$2809 


DUMP 


Ni 


14-Jui-83 11:83:36 Page 7 

full dump -- print buffers eabs stack & var. 

JSR VERS print version/status as header 
LDX #$0000 dump starting at addr=0 

LDA PIDENT+2 buffer size thigh byte) 

CLRB 

TFR DeVU to buffer_size-1l 

JSR DUMP dump €(X)) to ((U)) 

TSTA was dump aborted? 

BEQ DMPEND branch if yes 

eab? 

TST PIDENT+#1 eab present? (1D byte ls bit 0) 
BPL S DUMP branch if no 
idx #$1000 eab aiways starts here 

TER XeD copy to D 

ADDA PIDENT+2 calculate end 

TFR DsU 

JSR DUMP 

TSTA was dump aborted? 

BEQ DMPEND branch if yes 


print version/status as header 
beginning 
end 


Skip a line after dump 
done 
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TESTeSRC 
257 & 
258 ® 
259 & DUMP SUBROUTINE 
260 x 
261 x dumps memory from (X) to (U) 
262 om 
263 * 
OOF6* 86 FF 264 DUMP LDA #TRUE. initialize “good (tunaborted) dump" flag 
OOF8* BY O000* — 265 STA GDUMP , 
OOFB* FF ooo1* 266 STU LSTADR Save tast address 
OOFE*® BD 06250° 267 JSR NL. ok to skip a line before dumping 
268 x 
269 * dump a linee then check for cancel (TEST switch pressed) 
270 x 
0101" 108E 0013°* 271 LDY #TSTBUF Point to test print buffer 
0105" BD 0144° 272 10$ JSR PNTLIN 
0108" BD O25A* 273 JSR CONC HK check for front pane! abort 
O10B * 27 26 274 BEQ 40$ 
275 x 
276 * check for ftast word dumpede check for tines to be skippede 
2t7 x | 
O10D* BC OOO1* 278 CMPX LSTADR Last byte ? 
0110" 27 24 279 BEQ 90% Yese exit ! 
280 | 
01i12° 1F 13 281 TFR XeVU starting scan point 
0114* A6 1F 282 LDA —19X last byte dumped. 
283 = 
284 om scan loop 
285 ok 
0116" 1183 OO01* 286 20% CMPU LSTADR last line passed? 
O11A*®* 24 04 287 BCC 30$ Yese print iast line ! 
288 
011C* Ail co 289 CMPA 0 eU+ check a byte 
O1L1E* 2? F6 | 290 BEQ 20$ if equals go look some more 
291 + | 
292 * found something to dump -- should a fine be skipped? 
| 293 cr 
0120" 33 SF 294 30$ LEAU -1U back up to data to dump 
0122* 1F 30 295 TFR UsD compute base address of its line 
0124" C4 FO 296 ANDB #%$F0 | 
0126 34 06 297 PSHS D 
0128" AC El | 298 CMPX 0eS++ same as already pointed to by X? 
O127A* ?7 DY 7 299 BEQ 103% if yess go dump it 
| 300 : 
012C?* 1F Ol 301 TER DeX nos update X and skip tine 
O12E* 6D 0250°* 302 JSR NL | 
9131" 20 D2 | 303 7 BRA 104% 
304 x | | 
305 * dump aborted 
306 a 
0133" BY 9000? 307 40% STA GDUMP. set good dump false 
308 * | | 


TEST MODULE 
TESTeSRC 


0136° 
9139° 


O13A° 
0140° 
0142° 


Bé 
39 


00 
00 
FF 


CR6809/11 version 


0000* 


00 00 FF 
00 
00 


FF OO 


10234214 


309 
310 


311 


312 
313 
314 
315 
316 


317 


st 4 


1 $$ $e 4 


AB2 
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dump is 


LDA 
RTS 


contro! 
FCB 


FCB 


comotete 

GDUMP return no abort/abort fiag 

table 

FALSEe sFALSEe sFALSEos TRUEs eTRUEe es FALSEe 2 FALSEo se FALSEe 
TRUE es es FALSE 


TEST MODULE 
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0144°* 
0146* 
0149° 
0148B°* 
O14E* 
O151° 
0154° 
0157° 
0159° 
015C* 
O15€* 
0161° 
0164° 
0166° 
0168° 


O16A* 
016D* 
0170° 
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319 


320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 


Ot Sb te 


PNTLIN 


10$ 
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dump fine routine -- 


TFR X2D 

JSR TST4HX 
LDA #DBC_SP 
JSR DEVOUT 
JSR DEVOUT 
JSR DEVOUT 
JSR DEVOUT 
LDA 0 aX+ 
JSR TST2ZHX 
LDA #DBC_ SP 
JSR DEVOUT 
JSR DEVOUT 
TFR XeD 
ANDB # $F 

BNE 10$ 
JSR TSTPUT 
JSR NL 


RTS 


Page 9 


display (X)e9 then (1X) deoe((X#15))5 then NL 


print base address 


4 spaces 


get a byte 


2 spaces 


check for line done 
No ! 


Cutput test print tine 
new_line 
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TESTeSRC 
342 
343 * 
344 * test print -- atphabets numbers and special characters 
345 x 
346 * indefinate repeat until cancelied 
347 * 
348 * 
0171" 86D 0250° 349 TPRNT JSR NL test prints should always start with NL 
0174" 108E O1Al1* | 350 10$ LDY #TP1 print the test line 
0178° BD 0010 351 JSR DEVPUT | 
0178* BD O00D* 7 352 | JSR DEVCR return to beginning of line 
O17E* LOBE 0202* 353 LDY #TP2 print undertines 
0182* 8D 0010 354 JSR DEVPUT 
0185* BD 0250° | 355 JSR NL new line 
0188* BD 0250* 356 JSR NL 
018B* BD O25A° 357 JSR CONCHK continue? 
O18E® 26 E4 358 BNE 10$ branch if yes 
359 


0190" 39 360 RTS no» stop 


TEST 


MODULE 


TESTeSRC 


0191° 
0197° 
0199° 
O19F° 
O1Al1* 


O1A2* 
O1A8* 
O1LAE* 
O1AF®* 
0185* 
018B8B* 
01BC* 
01C2° 
01C8° 
oic9* 
O1CF®* 
01D5°* 
01D6° 
010C* 
O1E0* 
O1E6* 
01£9* 


OlEF® 


01F2°* 
O1F8* 
O1FA® 
0200° 


0202* 


0203° 
0209° 
O20F* 
0210° 
0216* 


O21C* 
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00 


00 


A2 
AB 
AF 
B5 


82 
88 


00 


00 


2F 
2F 


2F 


2F 


00 


00 


A3 
A9 


BO 
Bé 


83 
89 


90 
96 


23 
29 
13 


33 


00 


00 


2F 
2F 


2F 
2F 


00 


01 


A4 
AA 


Bl 
BT 


84 


BA 


91 
97 


24 


14 


34 


00 


01 


2F 


2F 


2F 
2F 


00 


51 


A5 
AB 


B2 
B8 


35 
8B 


92 
98 


25 
18 


35 


90 


1B 


2F 
2F 


2F 
2F 


362 
363 


364 


365 
366 
367 
368 
369 


370 
371 


372 


373 


374 


375 
376 
377 
378 
379 
380 


381 
382 


383 
384 


385 
386 


387 


388 


en oe 


sh ott 


TPl 


Se se at 


TP2 
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device coded buffer for test print ALPHAalphanumbersspecials 


FCB 
FCB 
FCB 


RADIX 
FCB 


FCB 


FCB 


FCB 


FCB 


FCB 


FCB 


RADIX 


character density is coded for defauft -- 10cpi 
0902020902020 +0 

Ov0902019819090 

80 buffer has 80 chars 

16 

$A0+$A14$A22$A39$A4y$A5eS$A69S$A70$AB2S$A9De $AAe $AB2 $AC A-M 
$AD»s SAEs $AF 2$B02$B1 2$B2 2$839$B4y $B59 $B65$B79$B89$B9 N-Z 
80281282783284285%862872988289s8A28B28C am 
8D2eB8E28F 290991992 093294 295296097998299 n-Z 
200219229239 249259 26921928929 0-9 
0De1l19129132014918919e1lAe2E (= *"/27!9$2% 


30931232233234235eSBEeS$BFe OC 


10 


underline string 


FCB 


FCB 


FCB 


RADIX 


FCB. 


FCB 


RADIX 


090902029070290%0 
09090290019272020 


26 
16 


(2Fe2Fe2Fe2Fe2Fo2Fe2Fe2F o2Fe2Fe 2s 2Fs2F 


2Fo2Fe2Fe2Fe2Fe2Fo2Fe2Fe2Fe2Fe 2F e2Fs 2F 


10 


E-e nits) 
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TESTeSRC 
390 x 
391 * SERVICE ROUTINES FOR DUMPS AND OTHER TEST PRINTS 
392 x . 
393 x NOTE: the following routines are strung together to Save space 
394 x at the expense of some readability | 
395 cs 
396 # * output (D0) as 4 hex digits 
397 * 
Q021D* 34 04 398 TST4HX PSHS B save tlto-order 
O21F* BD 0224°* 399 JSR TSTZ2HX output hi-order 
0222°* 35 02 400 PULS A get jto-order back 
401 * drop into out2 to output lto-order byte 
402 bd 
403 x output (A) as 2 hex digits 
404 % | 
0224* 34 02 405 TSTZHX PSHS A save 
0226" 44 406 LSRA right justify hi-digit 
0227" 44 407 LSRA 
0228" 44 408 LSRA 
0229" 44 409 LSRA 
O22A* 8D O22F* 410 © JSR TSTHEX output A bits 7-4 
022D0* 35 02 4il PULS A 
412 * drop into HEX to output lo-digit 
413 * 
414. * output a (hex) digit from A3-A0 
415 = 
022F* 84 OF 416 TSTHEX ANDA #$F mask 
0231° 8B 20 417 ADDA. #DBC_O | convert to ODBC 
0233" 81 29 418 CMPA #DBC_9 digit 0 to 9? 
0235° 2F 02 419 , BLE TSTBYT branch if yes 
| — 420 | : 
0237" #£«x8B 76 421 ADDA . #$A0-$2A convert to upper CBC for A through F 
422 x drop into CHAR to output the digit 
423 a 
424 a output DBC char in A to the buffer 
| 425 * 
02398 BD OOOF= 426 TSTBYT JSR DEVOUT no~»e place char in buffer 


O23C* 39 427 RTS 
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TESTeSRC 
429 * 
430 * "TSTPUT*® output test print line to device 
431 x | 
432 * Entry =: Y point to ‘TSTBUF® 
433 ak 
434 * Exit =: Y points to *TSTBUF® 
435 * 
023D° E6 AG  &36 TSTPUT CLDB OsY load byte count 
O23F* 27 OE 437 BEQ 99$ Nos line to output ! 
438 
0241° 5C 439 INCB Increment to next print position 
0242* EY 3D 440 STB -~30Y Save end print position 
0244" C6 Ol 441 LOB #1 Load first print position 
0246" E77 3C 442 STB —-49Y Save begin print position 
0248" 6F 3E 443 CLR —20Y : Use device default print density 
O024A" BD 0010 444 JSR DEVPUT Output test print buffer to device 
O24D* 6F A% 445 CLR O*vY Nuli test print buffer 
O24F*® 39 | 446 99$ RTS | Return 
447 cs 7 
448 * generate a "new_line"™ -- CR-LF 
| 449 * 
0250° 34 30 450 NL PSHS YoX save xX 
0252" BD O00D* 451 JSR DEVCR CR 
C255" BD OOOE* 452 . JSR DEVLF LF 


O258* 35 BO 453 PULS XeV¥oePC restore X 


TEST MODULE 
TEST.SRC 


O25A*® 
025D* 
025E°* 


0260? 
0263° 
0266" 
0268° 


O26A* 
026B* 
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0009% 


986 


0000" 
0009% 


FO 


455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 


CY $e Sb 4h 4b dt at 


ONCHK 


se te tt 


99% 
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routine checks for TEST switch on front panel pressed 
presense causes a return of FALSE. in A with Z set 
absense causes a return of TRUE» in A with Z ciear 
SWFLAG is always cleared by this routine 


LDA 
COMA 
BNE 


ida 
LDB 
STA 
CMPB 
BNE 


TSTA 
RTS 


END 


SWFLAG 
99$ 
#falsee 
SWVEC+3 
SWFLAG 


#7 
CONCHK 


check for front panei switch 


Switch fiag sets prepare to clear it 


what switch was it? 

clear the flag 

is switch code = TEST? 

if switch was not TEST» go set A TRUE. 


set condition code (A remains FALSEe ) 


TEST MODULE 


TESTeSRC 


ADCOD 
DBC$K 
DEVCR 
DEVPUT 
EXSTAT 
LSTCOM 
PIDENT 
STAT 
TEST 
TSTBUF 
TST2HX 


No errors detected 


0008 
OOAA 
OOOD EX 
0010 EX 
0005 EX 
0006 EX 
0008 EX 
0087* 
O000* IN 
0013° IN 
0224° 


AUTDMP 
DBCSSP 
DEVLF 

DEVTST 
FALSE. 
LSTORD 
PNTLIN 
STATI 


TPRNT 


TSTBYT 
TS T4HX 
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OOOA*IN 
0010 
OOOE EX 
OOOC EX 
0000 
OOOT EX 
0144°* 
OO8E* 
0171°* 
0239° 
021D* 
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BUSY 
DBC $X 
DEVMDN 
DMP END 
FDUMP 
MEMTST 
ROMBEG 
SWFLAG 
TPl 
TSTHEX 
TSWiT 
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OOO1 EX 
OOB7 
0002 EX 
OOF2°* 
OOBF® 
0032° 
C000 
0009 EX 
O1Ai° 
O22F* 


0015° 
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CONCHK 
DBC $0 
DEVOUT 
DUMP 
GDUMP 
NL 
ROMEND 
SWVEC 
TP2 
TSTPUT 
VERS 


O2Z5A* IN 
0020 — 
OOOF EX 
OOF6* 
0000* 
0250* 
0000 


-QOOA EX 


0202° 
023D* 
0033° 


DBCS$C 
CDBCS$9 
DEVPD 
ENAFLG 
LSTADR 
NULL 
S DUMP 


~TAB2 


TRUEe 
TSTTAB 
VERSIO 


O0A2 
0029 
0003 EX 
0004 EX 
0001° 
0031° 
OOE6* 
O13A° 
FFFF 
001D* 
000B EX 


